home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / disk / cdcat21 / install / installer_script < prev    next >
Text File  |  1998-01-22  |  46KB  |  1,209 lines
  1. ; CDCat installation script  $VER: CDCat v2.1 (22.01.98)
  2. ;
  3. ;
  4. ;->fs english
  5. (set default_lang 0)
  6. (set default_doc 0)
  7.  
  8. (set #info "\nThis script will install CDCat and the supported files onto your hard disk.\n\nCDCat © 1997 by Frank Weber.")
  9. (set #demouser "\nPlease remember that CDCat is Shareware. If you like it und use it, please register by paying the registration fee of 20 US$.\n\nThe development of CDCat can only be promoted by your registration.")
  10. (set #keyfileuser "\nThank you for registering. Please do not copy the keyfile which contains your name TO anyone.\n\nThe development of CDCat can only be promoted by your help.")
  11. (set #installkey "Install keyfile ")
  12. (set #selectinstallmode "Please choose installation mode")
  13. (set #im_new "New installation")
  14. (set #im_update "Update installation (removing old version)")
  15. (set #im_deinstall "Deinstall")
  16. (set #selectdest "Please choose destination drawer\n(A drawer 'CDCat' will be created)")
  17. (set #selectdest_help "You have to select the directory where the 'CDCat' drawer will be created.\n\nCDCat and all related files will then be copied into this drawer.")
  18. (set #installedtwice "\nCDCat has already been installed into this directory.\n\nDo you want me to switch to installation mode 'update' or to rename the existing drawer?.")
  19. (set #it_update "Install as update")
  20. (set #it_renameolddir "Rename old dir")
  21. (set #installcats "\nDo you want to install the example catalog(s)?")
  22. (set #doinstall "Install")
  23. (set #donotinstall "Don't install")
  24. (set #askprefs "\nWhere do you want the main configuration file to be located?")
  25. (set #pd_cdcatdir "CDCat directory")
  26. (set #pd_sdir "S:")
  27. (set #askbuttons "\nWhere do you want the button configuration file to be located?")
  28. (set #askmemolist "\nWhere do you want the memolist file to be located?")
  29. (set #askcdcatprog "Please select the main CDCat program")
  30. (set #askdeinstall "Really proceed with deinstallation?")
  31. (set #dodeinstall "Deinstall")
  32. (set #donotdeinstall "Cancel")
  33. (set #di_aborted "\nDeinstallation aborted!")
  34. (set #di_complete "\nDeinstallation complete!")
  35. (set #askdelete "Really delete the following file(s)?\n\n")
  36. (set #dodelete "Delete")
  37. (set #donotdelete "Skip")
  38. (set #chooselang "\nWhich languages do you want to be installed ???")
  39. (set #chooselang-help "\nIf you want to use CDCat in different languages, the catalog files must be installed. Please select the catalogs you want to be installed.")
  40. (set #askkeydest "Where do you want the keyfile to be installed?")
  41. (set #askdoc "Which documentation do you want to be installed?")
  42.  
  43. ;->fe
  44. ;->fs deutsch
  45. (if (= "deutsch" @language )
  46. (
  47.     (set default_lang 1)
  48.     (set default_doc 1)
  49.  
  50.     (set #info "\nDieses Skript installiert CDCat und alle dazugehörigen Dateien auf Ihrer Festplatte.\n\nCDCat © 1997 by Frank Weber.")
  51.     (set #demouser "\nBitte denken Sie daran, daß CDCat Shareware ist. Wenn Sie es kennengelernt haben und regelmäßig benutzen, sollten Sie sich bei mir für 30 DM registrieren lassen. Nur durch Ihre Unterstützung wird die Weiterentwicklung von CDCat sichergestellt.")
  52.     (set #keyfileuser "\nNochmals vielen Dank für Ihre Registration. Bitte geben Sie das Keyfile, das Ihren Namen und Ihre Adresse enthält, nicht weiter. Nur durch Ihre Unterstützung wird die Weiterentwicklung von CDCat sichergestellt.")
  53.     (set #installkey "Keyfile installieren")
  54.     (set #selectinstallmode "Bitte wählen Sie den Installations-Modus")
  55.     (set #im_new "Neuinstallation")
  56.     (set #im_update "Updateinstallation (über alte Version)")
  57.     (set #im_deinstall "Deinstallation")
  58.     (set #selectdest "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'CDCat' wird dort erstellt)")
  59.     (set #selectdest_help "Sie müssen hier das Verzeichnis wählen, in dem die 'CDCat'-Schublade erstellt werden soll.\n\nIn diese Schublade werden CDCat und die dazugehörigen Dateien kopiert.")
  60.     (set #installedtwice "\nCDCat wurde bereits in dieses Verzeichnis installiert.\n\nSoll in den Installationsmodus 'Update' gewechselt oder die alte Schublade umbenannt werden?")
  61.     (set #it_update "Als Update installieren")
  62.     (set #it_renameolddir "Altes Dir umbenennen")
  63.     (set #installcats "\nMöchten Sie den/die mitgelieferten Beispielkatalog(e) installieren?")
  64.     (set #doinstall "Installieren")
  65.     (set #donotinstall "Nicht installieren")
  66.     (set #askprefs "\nWo soll sich die Hauptkonfigurationsdatei befinden?")
  67.     (set #pd_cdcatdir "CDCat-Verzeichnis")
  68.     (set #pd_sdir "S:-Verzeichnis")
  69.     (set #askbuttons "\nWo soll sich die Knopf-Konfigurationsdatei befinden?")
  70.     (set #askmemolist "\nWo soll sich die Merkbrettdatei befinden?")
  71.     (set #askcdcatprog "Bitte wählen Sie das CDCat-Hauptprogramm aus")
  72.     (set #askdeinstall "Deinstallation wirklich durchführen?")
  73.     (set #dodeinstall "Deinstallieren")
  74.     (set #donotdeinstall "Abbruch")
  75.     (set #di_aborted "\nDeinstallation abgebrochen!")
  76.     (set #di_complete "\nDeinstallion abgeschlossen!")
  77.     (set #askdelete "Folgende Datei(en) wirklich löschen?\n\n")
  78.     (set #dodelete "Löschen")
  79.     (set #donotdelete "Nicht Löschen")
  80.     (set #chooselang "\nWelche Cataloge sollen installiert werden ???")
  81.     (set #chooselang-help "\nWenn Sie CDCat in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren. Wählen Sie aus, welche Cataloge Sie installieren wollen.")
  82.     (set #askkeydest "Wohin soll das Keyfile kopiert werden?")
  83.     (set #askdoc "Welche Dokumentation soll installiert werden?")
  84. ))
  85. ;->fe
  86. ;->fs français
  87. (if (= "français" @language )
  88. (
  89.     (set default_lang 2)
  90.     (set default_doc 2)
  91.  
  92.     (set #info "\nCe script va installer CDCat et les fichiers requis sur votre disque dur.\n\nCDCat © 1997 de Frank Weber.")
  93.     (set #demouser "Rappelez-vous que CDCat est Shareware. Si vous l'aimez et l'utilisez, veuillez vous enregistrer en vous acquittant des frais d'enregistrements de 130FF.\n\nLe développement de CDCat dépend du nombre de vos enregistrements.")
  94.     (set #keyfileuser "Merci de votre enregistrement. Ne copier pas votre clé contenant votre nom à n'importe qui, S.V.P.\n\nLe développement de CDCat peut être soutenu qu'avec votre aide.")
  95.     (set #installkey "Installation de la clé ")
  96.     (set #selectinstallmode "Choisissez, S.V.P., le mode d'installation")
  97.     (set #im_new "Nouvelle installation")
  98.     (set #im_update "Mise à jour (effaçant l'ancienne version)")
  99.     (set #im_deinstall "Désinstaller")
  100.     (set #selectdest "Choisissez, S.V.P., le répertoire de destination\n(Un répertoire 'CDCat' sera créé)")
  101.     (set #selectdest_help "Vous devez sélectionner le répertoire oÙ sera créé le tiroir pour 'CDCat'.\n\nCDCat et tous les fichiers requis seront copié dans ce tiroir.")
  102.     (set #installedtwice "\nCDCat a déjà été installé dans ce répertoire.\n\nVoulez-vous commuter l'installation en mode 'Mise à jour' ou renommer le tiroir existant?.")
  103.     (set #it_update "Installation en mode mise à jour")
  104.     (set #it_renameolddir "Renommer ancien rép.")
  105.     (set #installcats "\nVoulez-vous installer le(s) catalogue(s) fourni(s)?")
  106.     (set #doinstall "Installer")
  107.     (set #donotinstall "Ne pas installer")
  108.     (set #askprefs "\nOÙ voulez-vous que le fichier de configuration principal soit stocké?")
  109.     (set #pd_cdcatdir "Répertoire de CDCat")
  110.     (set #pd_sdir "S:")
  111.     (set #askbuttons "\nOÙ voulez-vous que le fichier de configuration des boutons soit stocké?")
  112.     (set #askmemolist "\nOÙ voulez-vous que le fichier Mémolist soit stocké?")
  113.     (set #askcdcatprog "Sélectionnez, S.V.P., le programme CDCat")
  114.     (set #askdeinstall "Voulez-vous vraiment procéder à la désinstallation?")
  115.     (set #dodeinstall "Désinstaller")
  116.     (set #donotdeinstall "Annuler")
  117.     (set #di_aborted "\nDésinstallation arrêtée!")
  118.     (set #di_complete "\nDésinstallation complète!")
  119.     (set #askdelete "Voulez-vous vraiment effacer le(s) fichier(s) suivant(s)?\n\n")
  120.     (set #dodelete "Effacer")
  121.     (set #donotdelete "Passer")
  122.     (set #chooselang "\nQuel(les) langue(s) voulez-vous installée(s) ???")
  123.     (set #chooselang-help "\nSi vous désirez utiliser CDCat dans une autre langue, le fichier catalogue doit être installé. Sélectionnez, S.V.P., le(s) catalogue(s) à installé(s).")
  124.     (set #askkeydest "OÙ voulez-vous que la clé soit installée?")
  125.     (set #askdoc "Quelle documentation voulez-vous installée?")
  126. ))
  127. ;->fe
  128. ;->fs italiano
  129. (if (= "italiano" @language )
  130. (
  131.     (set default_lang 4)
  132.     (set default_doc 0)
  133.  
  134.     (set #info "\nQuesto programma installerà CDCat ed i file di supporto nel tuo hard disk.\n\nCDCat © 1997 da Frank Weber.")
  135.     (set #demouser "Ricorda che CDCat è Shareware. Se lo usi e ti piace, per cortesia registrati pagando 20 US$.\n\nIl futuro sviluppo di CDCat dipende solo dalla tua registrazione.")
  136.     (set #keyfileuser "Grazie per esserti registrato. Per favore non dare la tua chiave di registrazione a nessuno.\n\nIl futuro sviluppo di CDCat dipende solo dal tuo aiuto.")
  137.     (set #installkey "Installa la chiave di registrazione ")
  138.     (set #selectinstallmode "Scegli la modalità di installazione ")
  139.     (set #im_new "Nuova installazione ")
  140.     (set #im_update "Aggiorna installazione (rimuovi vecchie versioni) ")
  141.     (set #im_deinstall "Deinstalla")
  142.     (set #selectdest "Scegli il cassetto di installazione\n(Un nuovo cassetto 'CDCat' verrà creato)")
  143.     (set #selectdest_help "Devi scegliere dove il cassetto 'CDCat' verrà creato.\n\nCDCat ed i file di supporto vi saranno copiati dentro.")
  144.     (set #installedtwice "\nCDCat è già installato in questo cassetto.\n\nvuoi cambiare la modalità di installazione in 'aggiornamento' o rinominare il cassetto ?.")
  145.     (set #it_update "Installa in aggiornamento")
  146.     (set #it_renameolddir "Rinomina il vecchio cassetto")
  147.     (set #installcats "\nVuoi installare i cataloghi di esempio ?")
  148.     (set #doinstall "Installa")
  149.     (set #donotinstall "Non installare")
  150.     (set #askprefs "\nDove vuoi collocare il file principale di configurazione ?")
  151.     (set #pd_cdcatdir "Cassetto di CDCat")
  152.     (set #pd_sdir "S:")
  153.     (set #askbuttons "\nDove vuoi collocare il file di configurazione dei pulsanti ?")
  154.     (set #askmemolist "\nDove vuoi collocare il file del promemoria ?")
  155.     (set #askcdcatprog "Seleziona il file principale del programma CDCat")
  156.     (set #askdeinstall "Vuoi realmente deinstallare CDCat ?")
  157.     (set #dodeinstall "Deinstalla")
  158.     (set #donotdeinstall "Cancella")
  159.     (set #di_aborted "\nDeinstallazione interrotta!")
  160.     (set #di_complete "\nDeinstallazione completata")
  161.     (set #askdelete "Vuoi realmente cancellare i seguenti file ?\n\n")
  162.     (set #dodelete "Cancella")
  163.     (set #donotdelete "Salta")
  164.     (set #chooselang "\nQuale lingua vuoi installare ???")
  165.     (set #chooselang-help "\nSe vuoi usare CDCat in un'altra lingua, devi installare il catalogo. Scegli il catalogo che vuoi installare.")
  166.     (set #askkeydest "Dove vuoi installare la chiave di registrazione ?")
  167.     (set #askdoc "Quale documentazione vuoi installare ?")
  168.  
  169. ))
  170. ;->fe
  171. ;->fs nederlands
  172. (if (= "nederlands" @language )
  173. (
  174.     (set default_lang 8)
  175.     (set default_doc 0)
  176.  
  177.     (set #info "\nDit script zal CDCat en de ondersteunende bestanden op je harde schijf installeren.\n\nCDCat © 1997 by Frank Weber.")
  178.     (set #demouser "Onthou dat CDCat Shareware is. Als je het gebruikt, ondersteun dan verdere ontwikkeling door het programma te registreren. Registratie kost 20US$")
  179.     (set #keyfileuser "Bedankt voor uw registratie. Gelieve jou persoonlijke keyfile (waarin jou gegevens gecodeerd zitten) niet verder te copiëren.\n\nVerdere ontwikkeling van CDCat is enkel mogelijk met jou hulp!")
  180.     (set #installkey "Keyfile Installeren")
  181.     (set #selectinstallmode "Kies de installatie modus")
  182.     (set #im_new "Nieuwe installatie")
  183.     (set #im_update "Update installatie (oude versie verwijderen)")
  184.     (set #im_deinstall "De-installeren")
  185.     (set #selectdest "Kies een bestemming (Een schuifje 'CDCat' zal automatisch worden gecreëerd)")
  186.     (set #selectdest_help "Je moet een directory kiezen waar een 'CDCat' schuifje zal worden aangemaakt.\n\nCDCat en alle nodige bestanden zullen in deze schuif worden geplaatst.")
  187.     (set #installedtwice "\nCDCat was reeds geïnstalleerd in deze directory.\n\nWil je omschakelen naar 'update' modus of de bestaande dir hernoemen?")
  188.     (set #it_update "Installeer als update")
  189.     (set #it_renameolddir "Oude dir hernoemen")
  190.     (set #installcats "\nWilt u de voorbeeld catalogi installeren?")
  191.     (set #doinstall "Installeren")
  192.     (set #donotinstall "Niet installeren")
  193.     (set #askprefs "\nKies een plaats voor het hoofd-configuratie bestand")
  194.     (set #pd_cdcatdir "CDCat directory")
  195.     (set #pd_sdir "S:")
  196.     (set #askbuttons "\nKies een plaats voor het knoppen-configuratie bestand")
  197.     (set #askmemolist "\nKies een plaats voor het memo-list bestand")
  198.     (set #askcdcatprog "Selecteer het CDCat hoofdprogramma")
  199.     (set #askdeinstall "Werkelijk doorgaan met de installatie?")
  200.     (set #dodeinstall "De-installeren")
  201.     (set #donotdeinstall "Afbreken")
  202.     (set #di_aborted "\nDe-installatie afgebroken!")
  203.     (set #di_complete "\nDe-installation voltooid!")
  204.     (set #askdelete "Volgend(e) bestand(en) werkelijk verwijderen?\n\n")
  205.     (set #dodelete "Verwijderen")
  206.     (set #donotdelete "Overslaan")
  207.     (set #chooselang "\nWelke talen wil je installeren???")
  208.     (set #chooselang-help "\nAls je CDCat in verschillende talen wil gebruiken moeten catalog-bestanden worden geïnstalleerd. Kies de catalogi die je wil gebruiken")
  209.     (set #askkeydest "Waar moet je keyfile worden geïnstalleerd?")
  210.     (set #askdoc "Welke documentatie moet worden geïnstalleerd?")
  211. ))
  212. ;->fe
  213. ;->fs norsk
  214. (if (= "norsk" @language )
  215. (
  216.     (set default_lang 16)
  217.     (set default_doc 0)
  218.  
  219.     (set #info "\nDette skriptet vil installere CDCat og noen ekstrafiler til din harddisk.\n\nCDCat © 1997 av Frank Weber.")
  220.     (set #demouser "Vennligst husk på at CDCat er Shareware. Hvis du liker det og bruker det bør du registrere det ved å betale registreringsavgiften på 20 US$.\n\nUtviklingen av CDCat kan bare fremmes med hjelp fra din registrering.")
  221.     (set #keyfileuser "Tusen takk for at du registrerte CDCat. Ikke kopier nøkkelfilen, som inneholder ditt navn, til noen.\n\nUtviklingen av CDCat kan bare fremmes med din hjelp.")
  222.     (set #installkey "Installer nøkkelfil ")
  223.     (set #selectinstallmode "Vennligst velg installeringsmodus")
  224.     (set #im_new "Ny installering")
  225.     (set #im_update "Oppdater installering (fjerner eldre versjon)")
  226.     (set #im_deinstall "Deinstaller")
  227.     (set #selectdest "Vennligst velg installasjonskatalogen\n(En katalog 'CDCat' vil bli opprettet)")
  228.     (set #selectdest_help "Du må velge en katalog hvor 'CDCat' katalogen vil bli opprettet.\n\nCDCat og alle relaterte filer vil så bli kopiert inn i denne katalogen.")
  229.     (set #installedtwice "\nCDCat er allerede installert i denne katalogen.\n\nVil du skifte installeringsmodus til 'oppdatering' eller vil du skifte navn på den eksisterende katalogen?.")
  230.     (set #it_update "Installer eller oppdater")
  231.     (set #it_renameolddir "Endre navnet på den gamle katalogen")
  232.     (set #installcats "\nVil du installere eksempelkatalog(er)?")
  233.     (set #doinstall "Installer")
  234.     (set #donotinstall "Ikke installer")
  235.     (set #askprefs "\nHvos vil du plassere de viktigste konfigurasjonsfilene?")
  236.     (set #pd_cdcatdir "CDCat katalog")
  237.     (set #pd_sdir "S:")
  238.     (set #askbuttons "\nHvor vil du installere konfigurasjonen av knapper?")
  239.     (set #askmemolist "\nHvor vil du installere momolist-filen?")
  240.     (set #askcdcatprog "Vennligst velg selve CDCat programmet")
  241.     (set #askdeinstall "Vil du fortsette med deinstalleringen?")
  242.     (set #dodeinstall "Deinstaller")
  243.     (set #donotdeinstall "Avbryt")
  244.     (set #di_aborted "\nDeinstallering avbrutt!")
  245.     (set #di_complete "\nDeinstallering ferdig!")
  246.     (set #askdelete "Vil du virkelig slette de følgende filene?\n\n")
  247.     (set #dodelete "Slett")
  248.     (set #donotdelete "Hopp over")
  249.     (set #chooselang "\nHvilke språk vil installere?")
  250.     (set #chooselang-help "\nHvis du vil bruke CDCat i forskjellige språk må språkfilene installeres. Vennligst velg de språkfilene du vil installere.")
  251.     (set #askkeydest "Hvor vil du plassere nøkkelfilen?")
  252.     (set #askdoc "Hvilken dokumentasjon vil du installere?")
  253. ))
  254. ;->fe
  255. ;->fs svenska
  256. (if (= "svenska" @language )
  257. (
  258.     (set default_lang 32)
  259.     (set default_doc 0)
  260.  
  261.     (set #info (cat
  262.         "\nDet här programmet kommer att installera CDCat och tillhörande filer i "
  263.         "din Amiga.\n\nCDCat © 1997 av Frank Weber.")
  264.     )
  265.     (set #demouser (cat
  266.         "Kom ihåg att CDCat är shareware. Om du tycker om det och använder det, var god "
  267.         "registrera genom att betala registreringsavgiften på 20 $US.\n\n"
  268.         "Utvecklingen av CDCat kan bara motiveras av din registrering."
  269.     ))
  270.     (set #keyfileuser (cat
  271.         "Tack för din registrering. Kopiera inte nyckelfilen, som innehåller ditt namn, "
  272.         "till någon.\n\nUtvecklingen av CDCat kan bara motiveras med din hjälp."
  273.     ))
  274.     (set #installkey "Installera nyckelfil ")
  275.     (set #selectinstallmode "Var god välj installationstyp")
  276.     (set #im_new "Ny installation")
  277.     (set #im_update "Uppdatera installation (och tag bort gammal version)")
  278.     (set #im_deinstall "Avinstallera")
  279.     (set #selectdest (cat
  280.         "Var god välj destinationslåda\n(En låda med namnet \"CDCat\" kommer att skapas)")
  281.     )
  282.     (set #selectdest_help (cat
  283.         "Du måste välja den låda där lådan \"CDCat\" skall skapas.\n\nCDCat och alla "
  284.         "relaterade filer kommer sedan att installeras i den nyskapade lådan."
  285.     ))
  286.     (set #installedtwice (cat
  287.         "\nCDCat har redan installerats i den här lådan.\n\nVill du byta till "
  288.         "uppdateringsläge eller vill du byta namn på den existerande lådan?"
  289.     ))
  290.     (set #it_update "Uppdatera")
  291.     (set #it_renameolddir "Byt namn")
  292.     (set #installcats "\nVill du installera exempelkatalogerna?")
  293.     (set #doinstall "Installera")
  294.     (set #donotinstall "Installera inte")
  295.     (set #askprefs "\nVar vill du placera huvudkonfigurationsfilen?")
  296.     (set #pd_cdcatdir "CDCat-lådan")
  297.     (set #pd_sdir "S:")
  298.     (set #askbuttons "\nVar vill du placera knappkonfigurationsfilen?")
  299.     (set #askmemolist "\nVar vill du placera memolistan?")
  300.     (set #askcdcatprog "Var god välj själva CDCat-programmet")
  301.     (set #askdeinstall "Vill du verkligen fortsätta med avinstallationen?")
  302.     (set #dodeinstall "Avinstallera")
  303.     (set #donotdeinstall "Avbryt")
  304.     (set #di_aborted "\nAvinstallationen avbruten!")
  305.     (set #di_complete "\nAvinstallationen är färdig!")
  306.     (set #askdelete "Vill du verkligen ta bort följande fil(er)?\n\n")
  307.     (set #dodelete "Ta bort")
  308.     (set #donotdelete "Hoppa över")
  309.     (set #chooselang "\nVilka språk vill du installera?")
  310.     (set #chooselang-help (cat
  311.         "\nOm du vill använda CDCat på olika språk måste katalogfiler installeras. "
  312.         "Var god välj de kataloger du vill installera."
  313.     ))
  314.     (set #askkeydest "Var vill du installera nyckelfilen?")
  315.     (set #askdoc "Vilken dokumentation vill du installera?")
  316. ))
  317. ;->fe
  318. ;->fs suomi
  319. (if (= "suomi" @language)
  320. (
  321.     (set default_lang 64)
  322.     (set default_doc 0)
  323.  
  324.     (set #info "\nTämä komentotiedosto asentaa CDCatin ja tukitiedostot kiintolevyllesi.\n\nCDCat © 1997 Frank Weber.")
  325.     (set #demouser "\nMuista, että CDCat on Sharewarea. Jos pidät ohjelmasta ja käytät sitä, rekisteröi maksamalla 20 US$:n rekisteröintimaksu.\n\nCDCatin kehitys voi edistyä vain rekisteröintisi avulla.")
  326.     (set #keyfileuser "\nKiitos rekisteröinnistäsi. Älä kopioi nimeäsi sisältävää avaintiedostoa KENELLEKÄÄN.\n\nCDCatin kehitys voi edistyä vain avullasi.")
  327.     (set #installkey "Asenna avaintiedosto")
  328.     (set #selectinstallmode "Valitse asennustapa")
  329.     (set #im_new "Uusi asennus")
  330.     (set #im_update "Päivitä asennus (poistaen vanha versio)")
  331.     (set #im_deinstall "Poista asennus")
  332.     (set #selectdest "Valitse kohdehakemisto\n(hakemisto nimeltä 'CDCat' luodaan sinne)")
  333.     (set #selectdest_help "Sinun täytyy valita hakemisto, johon uusi 'CDCat'-hakemisto luodaan.\n\nCDCat ja kaikki siihen liittyvät tiedostot kopioidaan sitten tähän hakemistoon.")
  334.     (set #installedtwice "\nCDCat on jo asennettu tähän hakemistoon.\n\nHaluatko vaihtaa asennustapaan 'päivitä' vai haluatko nimetä olemassa olevan hakemiston muuksi?")
  335.     (set #it_update "Asenna päivityksenä")
  336.     (set #it_renameolddir "Nimeä vanha hakemisto")
  337.     (set #installcats "\nHaluatko asentaa esimerkkiluettelo(t)?")
  338.     (set #doinstall "Asenna")
  339.     (set #donotinstall "Älä asenna")
  340.     (set #askprefs "\nMihin haluat sijoittaa pääkonfigurointitiedoston?")
  341.     (set #pd_cdcatdir "CDCatin hakemistoon")
  342.     (set #pd_sdir "S: -viitteeseen")
  343.     (set #askbuttons "\nMihin haluat sijoittaa painikkeiden konfigurointitiedoston?")
  344.     (set #askmemolist "\nMihin haluat sijoittaa muistilistatiedoston?")
  345.     (set #askcdcatprog "Valitse CDCat-ohjelmatiedosto")
  346.     (set #askdeinstall "Haluatko varmasti poistaa asennuksen?")
  347.     (set #dodeinstall "Poista")
  348.     (set #donotdeinstall "Peru")
  349.     (set #di_aborted "\nAsennuksen poisto keskeytetty!")
  350.     (set #di_complete "\nAsennus on nyt poistettu!")
  351.     (set #askdelete "Haluatko varmasti poistaa seuraavat tiedosto(t)?\n\n")
  352.     (set #dodelete "Poista")
  353.     (set #donotdelete "Ohita")
  354.     (set #chooselang "\nMitkä kielitiedostot haluat asentaa???")
  355.     (set #chooselang-help "\nJos haluat käyttää CDCatia eri kielillä, catalog-tiedostot täytyy asentaa. Valitse, mitkä kielitiedostot haluat asentaa.")
  356.     (set #askkeydest "Mihin haluat asentaa avaintiedoston?")
  357.     (set #askdoc "Minkä dokumentaation haluat asentaa?")
  358.  
  359. ))
  360. ;->fe
  361. ;->fs ÃeÓtina / czech
  362. (if (= "ÃeÓtina" @language )
  363. (
  364.         (set default_lang 128)
  365.         (set default_doc 0)
  366.  
  367.         (set #info "\nTento skript nainstaluje program CDCat a dodateÃn× soubory na vÁÓ disk.\n\nCDCat © 1997 Frank Weber.")
  368.         (set #demouser "ProsÉm, pamatujte, Úe CDCat je Shareware. JestliÚe si ho oblÉbÉte a pouÚÉvÁte ho, zaplaÔte registraÃnÉ poplatek 20 US$.\n\nDalÓÉ vÙvoj programu CDCat je podporovÁn pouze VaÓÉ registracÉ.")
  369.         (set #keyfileuser "DÅkuji za registraci. ProsÉm, nekopÉrujte osobnÉ klÉÃ, kterÙ obsahuje VaÓe jm×no, nikomu.\n\nDalÓÉ vÙvoj programu CDCat je podporovÁn pouze VaÓÉ pomocÉ.")
  370.         (set #installkey "Instalace osobnÉho klÉÃe")
  371.         (set #selectinstallmode "ProsÉm, zvolte mÏd instalace")
  372.         (set #im_new "NovÁ instalace")
  373.         (set #im_update "Aktualizace (odstranÅnÉ star× verze)")
  374.         (set #im_deinstall "OdinstalovÁnÉ")
  375.         (set #selectdest "ProsÉm, zvolte cÉlovÙ adresÁÒ\n(v kter×m se vytvoÒÉ adresÁÒ 'CDCat')")
  376.         (set #selectdest_help "Zvolil jste adresÁÒ, kde mÁ bÙt vytvoÒen adresÁÒ 'CDCat'.\n\nProgram CDCat a ostatnÉ soubory budou zkopÉrovÁny do tohoto adresÁÒe.")
  377.         (set #installedtwice "\nProgram CDCat je jiÚ v tomto adresÁÒi nainstalovÁn.\n\nChcete zmÅnit mÏd instalace na 'aktualizaci' nebo pÒejmenovat existujÉcÉ adresÁÒ?")
  378.         (set #it_update "Instalovat jako aktualizaci")
  379.         (set #it_renameolddir "PÒejmenovat starÙ adresÁÒ")
  380.         (set #installcats "\nChcete instalovat pÒÉkladov× katalogy?")
  381.         (set #doinstall "Instalovat")
  382.         (set #donotinstall "Neinstalovat")
  383.         (set #askprefs "\nZvolte umÉstÅnÉ hlavnÉho konfiguraÃnÉho souboru:")
  384.         (set #pd_cdcatdir "AdresÁÒ programu CDCat")
  385.         (set #pd_sdir "S:")
  386.         (set #askbuttons "\nZvolte umÉstÅnÉ konfiguraÃnÉho souboru tlaÃÉtek:")
  387.         (set #askmemolist "\nZvolte umÉstÅnÉ souboru memolistu:")
  388.         (set #askcdcatprog "ProsÉm, zvolte hlavnÉ program CDCatu")
  389.         (set #askdeinstall "Opravdu odinstalovat?")
  390.         (set #dodeinstall "Odinstalovat")
  391.         (set #donotdeinstall "ZruÓit")
  392.         (set #di_aborted "\nOdinstalace zruÓena!")
  393.         (set #di_complete "\nOdinstalovÁnÉ kompletnÉ!")
  394.         (set #askdelete "Opravdu smazat nÁsledujÉcÉ soubor(y)?\n\n")
  395.         (set #dodelete "Smazat")
  396.         (set #donotdelete "PÒeskoÃit")
  397.         (set #chooselang "\nKterÙ z jazykÊ chcete nainstalovat ???")
  398.         (set #chooselang-help "\nJestliÚe chcete pouÚÉt CDCat v rÊznÙch jazycÉch, ,musÉ bÙt naistalovÁn pÒÉsluÓnÙ lokalizaÃnÉ katalog. ProsÉm, zvolte katalogy, kter× chcete nainstalovat.")
  399.         (set #askkeydest "Zvolte umÉstÅnÉ osobnÉho klÉÃe:")
  400. ))
  401. ;->fe
  402. ;->fs hrvatski / croatian
  403. (if (= "hrvatski" @language)
  404. (
  405.     (set default_lang 256)
  406.     (set default_doc 0)
  407.  
  408.     (set #info "\nOva skripta æe instalirati CDCat i potrebne datoteke na va¹ hard disk.\n\nCDCat (c) 1997 by Frank Weber.")
  409.     (set #demouser "\nZapamtite da je CDCat  Shareware. Ako vam e dopada i koristite ga, regostrirajte se plaæajuæi registraciju od samo 20 US$.\n\nDaljnji razvitak CDCat ovisi o va¹oj registraciji.")
  410.     (set #keyfileuser "\nHvala na registraciji. Molim vas da nikome ne dajete nikom va¹ kljuè koji sadr¾i va¹e ime u sebi.\n\n Razvitak CDCat ovisi o va¹oj pomoæi.")
  411.     (set #installkey "Instaliraj kljuè ")
  412.     (set #selectinstallmode "Izaberi instalacijski naèin")
  413.     (set #im_new "Nova instalacija")
  414.     (set #im_update "Dogradnja (micanje starih inaæica)")
  415.     (set #im_deinstall "Deinstalacija")
  416.     (set #selectdest "Izaberite ciljni imenik\n(Imenik 'CDCat' æe biti napravljen)")
  417.     (set #selectdest_help "Izaberite mjesto gdje æe 'CDCat' imenik biti napravljen.\n\nCDCat i potrebne datoteke æe biti kopirane u ovaj imenik.")
  418.     (set #installedtwice "\nCDCat je veæ instaliran u ovom imeniku.\n\n Da prebacim instalacijski naèin u 'Dogradnju' ili da preimenujete postojeæi imenik?.")
  419.     (set #it_update "Instaliraj kao dogradnju")
  420.     (set #it_renameolddir "Preimenuj stari imenik")
  421.     (set #installcats "\nDa li ¾elite instalirati primjere?")
  422.     (set #doinstall "Instaliraj")
  423.     (set #donotinstall "Nemoj instalirati")
  424.     (set #askprefs "\nGdje ¾elite da spremam glavnu konfiguraciju?")
  425.     (set #pd_cdcatdir "CDCat imenik")
  426.     (set #pd_sdir "S:")
  427.     (set #askbuttons "\nGdje ¾elite da spremam konfiguraciju gumbi?")
  428.     (set #askmemolist "\nGdje ¾elite da spremam popis pamæenja?")
  429.     (set #askcdcatprog "Izaberite glavni CDCat program")
  430.     (set #askdeinstall "Zaista nastaviti s deinstalacijom?")
  431.     (set #dodeinstall "Deinstaliraj")
  432.     (set #donotdeinstall "Odustani")
  433.     (set #di_aborted "\nDeinstalacija prekinuta!")
  434.     (set #di_complete "\nDeinstalacija zavr¹ena!")
  435.     (set #askdelete "Zaista obrisati sljedeæe datoteke?\n\n")
  436.     (set #dodelete "Obri¹i")
  437.     (set #donotdelete "Preskoèi")
  438.     (set #chooselang "\nKoje jezike ¾elite instalirati ???")
  439.     (set #chooselang-help "\nAko ¾elite da CDCat koristi razlièite jezike, datoteke kataloga moraju biti instalirane. Molim, izaberite kataloge koje ¾elite instalirati.")
  440.     (set #askkeydest "Gdje ¾elite instalirati kljuè?")
  441.     (set #askdoc "Koju dokumentaciju ¾elite instalirati?")
  442.  
  443. ))
  444. ;->fe
  445.  
  446. ;->fs P_installnormal
  447. (procedure P_installnormal
  448. (
  449.   (complete 20)
  450.  
  451.   (makedir #cdcatdrawer (infos))
  452.   (set #cdcatprog (tackon #cdcatdrawer "CDCat"))
  453.  
  454.   (copyfiles  (source "/CDCat")
  455.               (dest #cdcatdrawer)
  456.               (infos)
  457.   )
  458.  
  459.   (complete 35)
  460.  
  461.  
  462.   (set doclanguage (askchoice (prompt #askdoc)
  463.                               (choices "English" "Deutsch" "Français")
  464.                               (help @askchoice-help)
  465.                               (default default_doc)
  466.                    )
  467.   )
  468.  
  469.   (set language (select doclanguage
  470.                           "english"
  471.                           "deutsch"
  472.                           "français"
  473.                           "italiano"
  474.                           "nederlands"
  475.                           "norsk"
  476.                           "svenska"
  477.                           "suomi"
  478.                           "ÃeÓtina"
  479.                           "hrvatski"
  480.                           ""
  481.                  )
  482.   )
  483.  
  484.   (copyfiles (source (cat "/docs/" language ".guide"))
  485.              (dest #cdcatdrawer)
  486.              (infos)
  487.   )
  488.  
  489.   (rename (tackon #cdcatdrawer (cat language ".guide")) (tackon #cdcatdrawer "CDCat.guide"))
  490.   (rename (tackon #cdcatdrawer (cat language ".guide.info")) (tackon #cdcatdrawer "CDCat.guide.info"))
  491.  
  492.   (complete 45)
  493.  
  494.   (set lang (askoptions (prompt #chooselang)
  495.                         (help #chooselang-help)
  496.                         (choices "Deutsch" "Français" "Italiano" "Nederlands" "Norsk" "Svenska" "Suomi" "ÃeÓtina" "Hrvatski")
  497.                         (default default_lang)
  498.             )
  499.   )
  500.  
  501.   (set n 0)
  502.  
  503.   (makedir (tackon #cdcatdrawer "Catalogs"))
  504.  
  505.   (while (set language (select n
  506.                                  "deutsch"
  507.                                  "français"
  508.                                  "italiano"
  509.                                  "nederlands"
  510.                                  "norsk"
  511.                                  "svenska"
  512.                                  "suomi"
  513.                                  "ÃeÓtina"
  514.                                  "hrvatski"
  515.                                  ""
  516.                         )
  517.           )
  518.   (
  519.     (if (IN lang n)
  520.     (
  521.         (makedir (tackon (tackon #cdcatdrawer "Catalogs/") language))
  522.         (copyfiles
  523.            (source (tackon (tackon "/Catalogs/" language) "CDCat.catalog"))
  524.            (dest (tackon (tackon #cdcatdrawer "Catalogs/") language))
  525.         )
  526.     ))
  527.     (set n (+ n 1))
  528.   ))
  529.  
  530.   (copyfiles (source "/catalogs/CDCat.cd")
  531.              (dest (tackon #cdcatdrawer "catalogs"))
  532.   )
  533.  
  534.   (copyfiles  (source "/RegiTool")
  535.               (dest #cdcatdrawer)
  536.               (infos)
  537.   )
  538.  
  539.   (copyfiles  (source (cat @language ".info"))
  540.               (dest #cdcatdrawer)
  541.   )
  542.  
  543.   (rename (tackon #cdcatdrawer (cat @language ".info")) (tackon #cdcatdrawer "Deinstall.info"))
  544.  
  545.   (copyfiles  (source "Installer_script")
  546.               (dest #cdcatdrawer)
  547.   )
  548.  
  549.   (complete 55)
  550.  
  551.   (makedir (tackon #cdcatdrawer "pics"))
  552.  
  553.   (copyfiles (source "/docs/pics/")
  554.              (dest (tackon #cdcatdrawer "pics"))
  555.              (pattern "#?")
  556.   )
  557.  
  558.  
  559.   (complete 60)
  560.  
  561.   (copyfiles  (source "/DArc_converter")
  562.               (dest #cdcatdrawer)
  563.               (infos)
  564.   )
  565.  
  566.   (complete 70)
  567.  
  568.   (makedir (tackon #cdcatdrawer "scancatalogs"))
  569.  
  570.   (if (> @user-level 1)
  571.   (
  572.     (if (= 1 (askbool (prompt #installcats)
  573.                       (choices #doinstall #donotinstall)
  574.                       (help @askbool-help)
  575.              )
  576.         )
  577.         (copyfiles (source "/scancatalogs/")
  578.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  579.                    (pattern "#?")
  580.         )
  581.     )
  582.  
  583.  
  584.  
  585.     (complete 80)
  586.  
  587.     (if (= 1 (askbool (prompt #askprefs)
  588.                      (choices #pd_cdcatdir #pd_sdir)
  589.                      (help @askbool-help)
  590.                      (default 1)
  591.             )
  592.         )
  593.  
  594.           (tooltype (dest #cdcatprog)
  595.                     (settooltype "PREFS" "CDCat.prefs")
  596.           )
  597.  
  598.           (tooltype (dest #cdcatprog)
  599.                     (settooltype "PREFS" "S:CDCat.prefs")
  600.           )
  601.     )
  602.  
  603.     (complete 85)
  604.  
  605.     (if (= 1 (askbool (prompt #askbuttons)
  606.                      (choices #pd_cdcatdir #pd_sdir)
  607.                      (help @askbool-help)
  608.                      (default 1)
  609.             )
  610.         )
  611.  
  612.           (tooltype (dest #cdcatprog)
  613.                     (settooltype "BUTTONCONFIG" "CDCat.buttons")
  614.           )
  615.  
  616.           (tooltype (dest #cdcatprog)
  617.                     (settooltype "BUTTONCONFIG" "S:CDCat.buttons")
  618.           )
  619.     )
  620.  
  621.     (complete 90)
  622.  
  623.     (if (= 1 (askbool (prompt #askmemolist)
  624.                      (choices #pd_cdcatdir #pd_sdir)
  625.                      (help @askbool-help)
  626.                      (default 1)
  627.             )
  628.         )
  629.  
  630.           (tooltype (dest #cdcatprog)
  631.                     (settooltype "MEMOLIST" "CDCat.memolist")
  632.           )
  633.  
  634.           (tooltype (dest #cdcatprog)
  635.                     (settooltype "MEMOLIST" "S:CDCat.memolist")
  636.           )
  637.     )
  638.   )
  639.   (
  640.         (copyfiles (source "/scancatalogs/")
  641.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  642.                    (pattern "#?")
  643.         )
  644.         (tooltype (dest #cdcatprog)
  645.                   (settooltype "PREFS" "CDCat.prefs")
  646.         )
  647.         (tooltype (dest #cdcatprog)
  648.                   (settooltype "BUTTONCONFIG" "CDCat.buttons")
  649.         )
  650.         (tooltype (dest #cdcatprog)
  651.                   (settooltype "MEMOLIST" "CDCat.memolist")
  652.         )
  653.  
  654.   ))
  655.  
  656.  
  657.   (complete 92)
  658.  
  659.   (tooltype (dest #cdcatprog)
  660.             (settooltype "DOC" "CDCat.guide")
  661.   )
  662.  
  663.   (tooltype (dest #cdcatprog)
  664.             (settooltype "REGITOOL" "RegiTool")
  665.   )
  666.  
  667.   (if (< (/ (getversion) 65536) 38)
  668.       (tooltype (dest (tackon #cdcatdrawer "CDCat.guide"))
  669.                 (setdefaulttool "sys:utilities/AmigaGuide")
  670.       )
  671.  
  672.       (tooltype (dest (tackon #cdcatdrawer "CDCat.guide"))
  673.                 (setdefaulttool "sys:utilities/Multiview")
  674.       )
  675.  
  676.   )
  677.  
  678.   (if (>= @installer-version 42)
  679.   (
  680.     (tooltype (dest (tackon #cdcatdrawer "CDCat.guide"))
  681.               (setposition  60 80)
  682.     )
  683.  
  684.     (tooltype (dest (tackon #cdcatdrawer "Deinstall"))
  685.               (setposition  160 85)
  686.     )
  687.   ))
  688.  
  689.   (complete 96)
  690.  
  691.     (if (exists "CDCat.key")
  692.       (P_installkey)
  693.     )
  694.   (complete 100)
  695.  
  696.   (if #keyfilecopied
  697.       (set #schlusstext #keyfileuser)
  698.       (set #schlusstext #demouser)
  699.   )
  700.  
  701.   (exit #schlusstext)
  702. )
  703. )
  704. ;->fe
  705. ;->fs P_installupdate
  706. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  707. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  708.  
  709. ;Updateinstallation
  710.  
  711. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  712. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  713.  
  714.  
  715. (procedure P_installupdate
  716. (
  717.   (if (= #cdcatprog "")
  718.  
  719.     (until (= "CDCat" (fileonly #cdcatprog))
  720.  
  721.       (set #cdcatprog (askfile (prompt #askcdcatprog)
  722.                                (default "SYS:")
  723.                                (help @askfile-help)
  724.                       )
  725.       )
  726.     )
  727.   )
  728.  
  729.   (set #cdcatdrawer (pathonly #cdcatprog))
  730.   (set @default-dest #cdcatdrawer)
  731.  
  732.   (delete (tackon #cdcatdrawer "Anleitung.guide") (infos))
  733.   (delete (tackon #cdcatdrawer "Readme") (infos))
  734.   (delete (tackon #cdcatdrawer "DArc-Konverter") (infos))
  735.   (delete (tackon #cdcatdrawer "Install_Deutsch") (infos))
  736.   (delete (tackon #cdcatdrawer "Installer_Skript"))
  737.  
  738.   (complete 15)
  739.  
  740.   (copyfiles  (source "/CDCat")
  741.               (dest #cdcatdrawer)
  742.   )
  743.  
  744.   (complete 35)
  745.  
  746.  
  747.   (set doclanguage (askchoice (prompt #askdoc)
  748.                               (choices "English" "Deutsch" "Français")
  749.                               (help @askchoice-help)
  750.                               (default default_doc)
  751.                    )
  752.   )
  753.  
  754.   (set language (select doclanguage
  755.                           "english"
  756.                           "deutsch"
  757.                           "français"
  758.                           "italiano"
  759.                           "nederlands"
  760.                           "norsk"
  761.                           "svenska"
  762.                           "suomi"
  763.                           "ÃeÓtina"
  764.                           "hrvatski"
  765.                           ""
  766.                  )
  767.   )
  768.  
  769.   (copyfiles (source (cat "/docs/" language ".guide"))
  770.              (dest #cdcatdrawer)
  771.              (infos)
  772.   )
  773.  
  774.  
  775.   (delete (tackon #cdcatdrawer "CDCat.guide" (infos)))
  776.   (rename (tackon #cdcatdrawer (cat language ".guide")) (tackon #cdcatdrawer "CDCat.guide"))
  777.   (rename (tackon #cdcatdrawer (cat language ".guide.info")) (tackon #cdcatdrawer "CDCat.guide.info"))
  778.  
  779.   (complete 45)
  780.  
  781.   (set lang (askoptions (prompt #chooselang)
  782.                         (help #chooselang-help)
  783.                         (choices "Deutsch" "Français" "Italiano" "Nederlands" "Norsk" "Svenska" "Suomi" "ÃeÓtina" "Hrvatski")
  784.                         (default default_lang)
  785.             )
  786.   )
  787.  
  788.   (set n 0)
  789.  
  790.   (makedir (tackon #cdcatdrawer "Catalogs"))
  791.  
  792.   (while (set language (select n
  793.                                  "deutsch"
  794.                                  "français"
  795.                                  "italiano"
  796.                                  "nederlands"
  797.                                  "norsk"
  798.                                  "svenska"
  799.                                  "suomi"
  800.                                  "ÃeÓtina"
  801.                                  "hrvatski"
  802.                                  ""
  803.                         )
  804.           )
  805.   (
  806.     (if (IN lang n)
  807.     (
  808.         (makedir (tackon (tackon #cdcatdrawer "Catalogs/") language))
  809.         (copyfiles
  810.            (source (tackon (tackon "/Catalogs/" language) "CDCat.catalog"))
  811.            (dest (tackon (tackon #cdcatdrawer "Catalogs/") language))
  812.         )
  813.     ))
  814.     (set n (+ n 1))
  815.   ))
  816.  
  817.   (copyfiles (source "/catalogs/CDCat.cd")
  818.              (dest (tackon #cdcatdrawer "catalogs"))
  819.   )
  820.  
  821.   (copyfiles  (source "/RegiTool")
  822.               (dest #cdcatdrawer)
  823.               (infos)
  824.   )
  825.  
  826.  
  827.   (copyfiles  (source (cat @language ".info"))
  828.               (dest #cdcatdrawer)
  829.   )
  830.  
  831.   (delete (tackon #cdcatdrawer (cat "Deinstall.info")))
  832.   (rename (tackon #cdcatdrawer (cat @language ".info")) (tackon #cdcatdrawer "Deinstall.info"))
  833.  
  834.   (copyfiles  (source "Installer_script")
  835.               (dest #cdcatdrawer)
  836.   )
  837.  
  838.   (complete 55)
  839.  
  840.   (makedir (tackon #cdcatdrawer "pics"))
  841.  
  842.   (copyfiles (source "/docs/pics/")
  843.              (dest (tackon #cdcatdrawer "pics"))
  844.              (pattern "#?")
  845.   )
  846.  
  847.  
  848.   (complete 60)
  849.  
  850.   (copyfiles  (source "/DArc_converter")
  851.               (dest #cdcatdrawer)
  852.               (infos)
  853.   )
  854.  
  855.   (complete 85)
  856.  
  857.   (if (> @user-level 1)
  858.   (
  859.     (if (= 1 (askbool (prompt #installcats)
  860.                       (choices #doinstall #donotinstall)
  861.                       (help @askbool-help)
  862.              )
  863.         )
  864.         (copyfiles (source "/scancatalogs/")
  865.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  866.                    (pattern "#?")
  867.         )
  868.     )
  869.   )
  870.   (
  871.     (copyfiles (source "/scancatalogs/")
  872.                (dest (tackon #cdcatdrawer "scancatalogs"))
  873.                (pattern "#?")
  874.     )
  875.   ))
  876.  
  877.   (if (>= @installer-version 42)
  878.   (
  879.     (tooltype (dest (tackon #cdcatdrawer "CDCat.guide"))
  880.               (setposition  60 80)
  881.     )
  882.  
  883.     (tooltype (dest (tackon #cdcatdrawer "Deinstall"))
  884.               (setposition  160 85)
  885.     )
  886.   ))
  887.  
  888.   (complete 90)
  889.  
  890.     (if (exists "/CDCat.key")
  891.       (P_installkey)
  892.     )
  893.   (complete 100)
  894.  
  895.   (if #keyfilecopied
  896.       (set #schlusstext #keyfileuser)
  897.       (set #schlusstext #demouser)
  898.   )
  899.  
  900.   (exit #schlusstext)
  901.  
  902. ))
  903. ;->fe
  904. ;->fs P_deinstall
  905. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  906. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  907.  
  908. ;Deinstallation
  909.  
  910. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  911. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  912.  
  913.  
  914. (procedure P_deinstall
  915. (
  916.   (if (= #cdcatprog "")
  917.  
  918.     (until (= "CDCat" (fileonly #cdcatprog))
  919.  
  920.       (set #cdcatprog (askfile (prompt #askcdcatprog)
  921.                                (default "CDCat")
  922.                                (help @askfile-help)
  923.                       )
  924.       )
  925.     )
  926.   )
  927.  
  928.   (set #cdcatdrawer (pathonly #cdcatprog))
  929.  
  930.   (if (= @user-level 1)
  931.   (
  932.       (set #proceed (askbool (prompt #askdeinstall)
  933.                       (choices #dodeinstall #donotdeinstall)
  934.                       (help @askbool-help)
  935.                       (default 0)
  936.                     )
  937.       )
  938.       (if (= 0 #proceed) (exit #di_aborted (quiet)) )
  939.   ))
  940.  
  941. ;  (set #prefsfile "")
  942. ;  (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "PREFS" #prefsfile))
  943. ;  (set #buttonfile "")
  944. ;  (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "BUTTONCONFIG" #buttonfile))
  945. ;  (set #memolistfile "")
  946. ;  (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "MEMOLIST" #memolistfile))
  947. ;  (set #keyfile "")
  948. ;  (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "KEYFILE" #keyfile))
  949.  
  950.   (if (> @user-level 1)
  951.     (set #proceed (askbool (prompt (cat #askdelete "CDCat"))
  952.                            (choices #dodelete #donotdelete)
  953.                            (help @askbool-help)
  954.                            (default 0)
  955.                   )
  956.     )
  957.     (set #proceed 1)
  958.   )
  959.  
  960.   (if (= 1 #proceed)
  961.     (delete (tackon #cdcatdrawer "CDCat") (infos))
  962.   )
  963.  
  964.   (if (> @user-level 1)
  965.     (set #proceed (askbool (prompt (cat #askdelete "CDCat.guide + pics/"))
  966.                            (choices #dodelete #donotdelete)
  967.                            (help @askbool-help)
  968.                            (default 0)
  969.                   )
  970.     )
  971.     (set #proceed 1)
  972.   )
  973.  
  974.   (if (= 1 #proceed)
  975.     (delete (tackon #cdcatdrawer "CDCat.guide") (infos))
  976.   )
  977.  
  978.   (if (= 1 #proceed)
  979.     (run (cat "c:delete \"" (tackon #cdcatdrawer "pics/") "\" all"))
  980.   )
  981.  
  982.   (if (> @user-level 1)
  983.     (set #proceed (askbool (prompt (cat #askdelete "catalogs/"))
  984.                            (choices #dodelete #donotdelete)
  985.                            (help @askbool-help)
  986.                            (default 0)
  987.                   )
  988.     )
  989.     (set #proceed 1)
  990.   )
  991.  
  992.   (if (= 1 #proceed)
  993.     (run (cat "c:delete \"" (tackon #cdcatdrawer "catalogs/") "\" all"))
  994.   )
  995.  
  996.   (if (> @user-level 1)
  997.     (set #proceed (askbool (prompt (cat #askdelete "RegiTool"))
  998.                            (choices #dodelete #donotdelete)
  999.                            (help @askbool-help)
  1000.                            (default 0)
  1001.                   )
  1002.     )
  1003.     (set #proceed 1)
  1004.   )
  1005.  
  1006.   (if (= 1 #proceed)
  1007.     (delete (tackon #cdcatdrawer "RegiTool") (infos))
  1008.   )
  1009.  
  1010.   (if (> @user-level 1)
  1011.     (set #proceed (askbool (prompt (cat #askdelete "DArc_converter"))
  1012.                            (choices #dodelete #donotdelete)
  1013.                            (help @askbool-help)
  1014.                            (default 0)
  1015.                   )
  1016.     )
  1017.     (set #proceed 1)
  1018.   )
  1019.  
  1020.   (if (= 1 #proceed)
  1021.     (delete (tackon #cdcatdrawer "DArc_converter") (infos))
  1022.   )
  1023.  
  1024.   (if (> @user-level 1)
  1025.     (set #proceed (askbool (prompt (cat #askdelete "Installer_script"))
  1026.                            (choices #dodelete #donotdelete)
  1027.                            (help @askbool-help)
  1028.                            (default 0)
  1029.                   )
  1030.     )
  1031.     (set #proceed 1)
  1032.   )
  1033.  
  1034.   (if (= 1 #proceed)
  1035.     (delete (tackon #cdcatdrawer "Installer_script"))
  1036.   )
  1037.  
  1038.   (if (= 1 #proceed)
  1039.     (delete (tackon #cdcatdrawer "Install.info"))
  1040.   )
  1041.  
  1042.   (if (> @user-level 1)
  1043.     (set #proceed (askbool (prompt (cat #askdelete "scancatalogs/"))
  1044.                            (choices #dodelete #donotdelete)
  1045.                            (help @askbool-help)
  1046.                            (default 0)
  1047.                   )
  1048.     )
  1049.     (set #proceed 1)
  1050.   )
  1051.  
  1052.   (if (= 1 #proceed)
  1053.     (run (cat "c:delete \"" (tackon #cdcatdrawer "scancatalogs/") "\" all"))
  1054.   )
  1055.  
  1056. ;  (if (> @user-level 1)
  1057. ;    (set #proceed (askbool (prompt (cat #askdelete #prefsfile))
  1058. ;                           (choices #dodelete #donotdelete)
  1059. ;                           (help @askbool-help)
  1060. ;                           (default 0)
  1061. ;                  )
  1062. ;    )
  1063. ;    (set #proceed 1)
  1064. ;  )
  1065. ;
  1066. ;  (if (= 1 #proceed)
  1067. ;    (delete (tackon #cdcatdrawer #prefsfile) (infos))
  1068. ;  )
  1069.  
  1070. ;  (delete #cdcatdrawer (infos))
  1071.  
  1072.   (exit #di_complete (quiet))
  1073. ))
  1074. ;->fe
  1075. ;->fs P_installkey
  1076. (procedure P_installkey
  1077. (
  1078.   (if (= "" #cdcatprog)
  1079.     (until (= "CDCat" (fileonly #cdcatprog))
  1080.       (set #cdcatprog (askfile   (prompt #askcdcatprog)
  1081.                                  (help @askfile-help)
  1082.                                  (default @default-dest)
  1083.                       )
  1084.       )
  1085.     )
  1086.   )
  1087.  
  1088.   (if (> @user-level 1)
  1089.  
  1090.     (set #keydest (askdir (prompt #askkeydest)
  1091.                           (help @askdir-help)
  1092.                           (default (pathonly #cdcatprog))
  1093.                   )
  1094.     )
  1095.  
  1096.     (
  1097.       (if (= 1 (askbool (prompt #askkeydest)
  1098.                           (choices #pd_cdcatdir #pd_sdir)
  1099.                           (help @askbool-help)
  1100.                           (default 1)
  1101.                )
  1102.           )
  1103.  
  1104.           (set #keydest (pathonly #cdcatprog))
  1105.           (set #keydest "S:")
  1106.       )
  1107.  
  1108.     )
  1109.   )
  1110.  
  1111.   (copyfiles (source "/CDCat.key")
  1112.              (dest #keydest)
  1113.   )
  1114.  
  1115.   (set #keyfilecopied 1)
  1116.  
  1117.   (if (= #keydest (pathonly #cdcatprog))
  1118.     (tooltype (dest #cdcatprog)
  1119.               (settooltype "KEYFILE" "CDCat.key")
  1120.     )
  1121.     (tooltype (dest #cdcatprog)
  1122.               (settooltype "KEYFILE" (tackon #keydest "CDCat.key"))
  1123.     )
  1124.   )
  1125. )
  1126. )
  1127. ;->fe
  1128.  
  1129. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1130. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1131.  
  1132. ; Eigentlicher Start
  1133.  
  1134. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1135. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1136.  
  1137. (complete 0)
  1138. (message #info)
  1139. (complete 5)
  1140.  
  1141. (set #default-dir "SYS:")
  1142. (set @default-dest "SYS:")
  1143. (set #cdcatprog "")
  1144.  
  1145. (if (exists "CDCat.key")
  1146.   (set #installkey #installkey)
  1147.   (set #installkey "")
  1148. )
  1149.  
  1150.  
  1151. (if (exists "Deinstall.info")
  1152. (
  1153.  
  1154.   (set #mode (askchoice
  1155.                   (prompt #selectinstallmode)
  1156.                   (help @askchoice-help)
  1157.                   (choices #im_deinstall)
  1158.                   (default 0)
  1159.              )
  1160.   )
  1161.   (set #mode 3)
  1162. )
  1163.   (set #mode (askchoice
  1164.                   (prompt #selectinstallmode)
  1165.                   (help @askchoice-help)
  1166.                   (choices #im_new #im_update #installkey)
  1167.                   (default 0)
  1168.              )
  1169.   )
  1170. )
  1171. (if (= #mode 0)
  1172.   (   (set #dest (askdir (prompt #selectdest)
  1173.                          (help #selectdest_help)
  1174.                          (default @default-dest)
  1175.                  )
  1176.       )
  1177.  
  1178.       (set #cdcatdrawer (tackon #dest "CDCat"))
  1179.       (set @default-dest #dest)
  1180.  
  1181.       (if (exists #cdcatdrawer)
  1182.          (if (= 1 (askbool
  1183.                                (prompt #installedtwice)
  1184.                                (choices #it_update #it_renameolddir)
  1185.                                (help @askbool-help)
  1186.                                (default 1)
  1187.                   )
  1188.              )
  1189.              (
  1190.                (set #mode 1)
  1191.                (set #cdcatprog (tackon #cdcatdrawer "CDCat"))
  1192.              )
  1193.              (
  1194.                (rename #cdcatdrawer (cat #cdcatdrawer "_old"))
  1195.              )
  1196.          )
  1197.    )
  1198.       (if (= #mode 0) (P_installnormal))
  1199.   )
  1200. )
  1201.  
  1202. (if (= #mode 1) (P_installupdate))
  1203.  
  1204. (if (= #mode 2) (P_installkey))
  1205.  
  1206. (if (= #mode 3) (P_deinstall))
  1207.  
  1208.  
  1209.